home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / mail / YAM22.lha / YAM2.2 / Rexx / MiamiOffline.yam < prev    next >
Text File  |  2000-04-19  |  582b  |  18 lines
  1. /* MiamiOffline.yam - Go offline in Miami                               */
  2. /* $VER: MiamiOffline.yam 1.1 (22.3.98) © 1998 by M.Beck <mbeck@yam.ch> */
  3.  
  4. quitmiami = 0                                      /* Set this 1 if Miami should be terminated */
  5. ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort"  /* Don't go offline if one of these applications is running */
  6.  
  7. OPTIONS RESULTS
  8. DO i = 1 TO WORDS(ports)
  9.    IF SHOW('P', WORD(ports,i)) THEN EXIT 0
  10. END
  11. IF SHOW('P', 'MIAMI.1') THEN DO
  12.    ADDRESS 'MIAMI.1'
  13.    ISONLINE
  14.    IF RC=1 THEN OFFLINE
  15.    IF quitmiami = 1 THEN QUIT
  16. END
  17. EXIT 0
  18.